home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 98 / CD-ROM 98.iso / internet / slim / sbrowser.exe / scripts / ExtractSearchEngine.js < prev   
Encoding:
Text File  |  2003-06-18  |  919 b   |  51 lines
  1. ExtractSearchEngine();
  2. function ExtractSearchEngine()
  3. {
  4.     debugger;
  5.     var topBody = top.document.body;
  6.     var vForm=GetActiveForm();
  7.     var vDoc=eval(path+".document");
  8.     vDoc.activeElement.value="sbKeyword";
  9.     vForm.method="get";
  10.     SubmitForm(vForm);
  11. }
  12.  
  13. function GetActiveForm()
  14. {
  15.     var vForm;
  16.     vForm=GetActiveFormEx("top",true);
  17.     if (vForm==null) vForm=GetActiveFormEx("top",false);
  18.     return vForm;
  19. }
  20.  
  21. function GetActiveFormEx(path,bActive)
  22. {
  23.     var vDocument=eval(path+".document");
  24.     var vForm;
  25.     if (bActive)
  26.     {
  27.         vForm=vDocument.activeElement.form;
  28.         if (vForm!=null) 
  29.         {
  30.             vForm.path=path;
  31.             return vForm;
  32.         }
  33.     }
  34.     else 
  35.     {
  36.         vForm=vDocument.forms[0];
  37.         if (vForm!=null) 
  38.         {
  39.             vForm.path=path;
  40.             return vForm;
  41.         }
  42.     }
  43.     for(var i=0; i<vWindow.frames.length; i++ )
  44.     {
  45.         vForm=GetActiveFormEx(path+".frames["+i+"]",bActive);
  46.         if (vForm!="") return vForm;
  47.     }
  48.     return null;
  49. }
  50.  
  51.